object wavedlg: Twavedlg Left = 296 Top = 201 ActiveControl = fileName BorderIcons = [] BorderStyle = bsDialog Caption = 'Import a sample' ClientHeight = 289 ClientWidth = 392 Color = 4470913 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter Scaled = False OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 56 Top = 249 Width = 129 Height = 24 Shape = bsTopLine Style = bsRaised end object playBtn: TSpeedButton Left = 16 Top = 238 Width = 24 Height = 22 Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 OnClick = playBtnClick end object stopBtn: TSpeedButton Left = 39 Top = 238 Width = 24 Height = 22 Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 OnClick = stopBtnClick end object fileSizeLabel: TLabel Left = 16 Top = 220 Width = 9 Height = 14 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = 184 Top = 200 Width = 9 Height = 19 Shape = bsTopLine Style = bsRaised end object Bevel3: TBevel Left = 184 Top = 201 Width = 17 Height = 48 Shape = bsLeftLine Style = bsRaised end object DirectoryListBox1: TDirectoryListBox Left = 16 Top = 42 Width = 161 Height = 167 Color = 10656960 FileList = FileListBox1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 end object DriveComboBox1: TDriveComboBox Left = 16 Top = 16 Width = 161 Height = 20 Color = 10656960 DirList = DirectoryListBox1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 end object FileListBox1: TFileListBox Left = 192 Top = 16 Width = 185 Height = 169 Color = 10656960 FileEdit = fileName FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 16 Mask = '*.wav;*.raw;*.pcm;*.sam;*.smp;*.ts' ParentFont = False ShowGlyphs = True TabOrder = 2 OnDblClick = FileListBox1DblClick end object FilterComboBox1: TFilterComboBox Left = 192 Top = 220 Width = 185 Height = 22 Color = 10656960 Ctl3D = True FileList = FileListBox1 Filter = 'All known file formats|*.wav;*.raw;*.pcm;*.sam;*.smp;*.ts|Wave f' + 'iles (*.wav)|*.wav|Raw sample files (raw, pcm, ...)|*.raw;*.sam;' + '*.pcm;*.smp|Tuareg Samples (*.ts)|*.ts|All files (*.*)|*.*' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 3 end object fileName: TEdit Left = 192 Top = 192 Width = 185 Height = 22 Color = 8112255 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 Text = '*.wav;*.raw;*.pcm;*.sam;*.smp;*.ts' OnChange = fileNameChange end object cancelBtn: TButton Left = 304 Top = 256 Width = 73 Height = 25 Cancel = True Caption = 'Cancel' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 5 end object okBtn: TButton Left = 224 Top = 256 Width = 73 Height = 25 Caption = 'Ok' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 6 end object cbAutoPlay: TCheckBox Left = 16 Top = 264 Width = 161 Height = 17 Caption = 'Auto play selected sample' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = cbAutoPlayClick end object wavPlayer: TSRWavePlayer Async = True Loop = False Left = 216 Top = 144 end end